home *** CD-ROM | disk | FTP | other *** search
/ Die Ultimative Software-P…i Collection 1996 & 1997 / Die Ultimative Software-Pakete CD-ROM fur Atari Collection 1996 & 1997.iso / a / a_funk / satellit.tos / SATELLIT / SAT_SOUR.TXT / DOVESAT1.GFA < prev    next >
Encoding:
Text File  |  1995-04-30  |  4.9 KB  |  141 lines
  1. ' 05Feb90/0644 Subject: TELEMETRIE.LST GFA 2.0 Bulletin ID: 042007DB0PV
  2. ' Path: DB0AAA!DB0CZ!DB0PV de DG8MEQ @ DB0PV
  3. ' (gleiches Programm wurde nochmal eingespielt unter:
  4. ' 01Mar91/0407  Subject: DOVE part 1/2 Bulletin ID: 4683_ON4ASX ) 
  5. '
  6. ' Programm zum Entschluesseln der Dove Oscar-17-Telemetriedaten (DC4FS)
  7. ' GFA 2.0 von DG8MEQ
  8. ' Das von Dove empfangene muss im ASCII-Format in der Datei 'DOVE.TXT'
  9. ' auf Diskette gespeichert sein.Das Programm unterbricht jeweils nach
  10. ' einer Bildschirmausgabe und ist mit einem Tastendruck fortzusetzen.
  11. ' Fuer die Druckerausgabe hatte ich auf die schnelle keine Lust.
  12. ' Viel Spass, 73,Manfred.
  13. '
  14. Cls
  15. Dim D$(&H3A),T$(&H3A),U$(&H3A)
  16. Dim A(&H3A),B(&H3A),C(&H3A),N(&H3A)
  17. For I=0 To &H3A
  18.   Read T$(I),C(I),B(I),A(I),U$(I)
  19. Next I
  20. Let Name$="DOVE.TXT"
  21. If Exist(Name$)=True
  22.   Open "i",#1,"DOVE.TXT"
  23. Endif
  24. '                    Suchen nach Schluesselworten im ASCII File
  25. Do
  26.   Input #1,A$                  ! Zeile von Diskette lesen
  27.   If Left$(A$,3)="PHT"
  28.     Print
  29.     Print A$
  30.     Gosub Taste
  31.   Endif
  32.   If Left$(A$,3)="vba"
  33.     Print
  34.     Print A$
  35.     Gosub Taste
  36.   Endif
  37.   If Left$(A$,3)="00:"
  38.     Input #1,B$
  39.     Input #1,C$
  40.     A$=A$+" "+B$+" "+C$        ! Drei Zeilen zu einem String zusammenfuegen
  41.     For I=0 To &H20
  42.       D$(I)="&"+Mid$(A$,4+I*6,2)
  43.       N(I)=Val(D$(I))
  44.     Next I
  45.   Endif
  46.   If Left$(A$,3)="21:"
  47.     Input #1,B$
  48.     Input #1,C$
  49.     A$=A$+" "+B$+" "+C$        ! Drei Zeilen zu einem String zusammenfuegen
  50.     For I=0 To &H19
  51.       D$(I+&H21)="&"+Mid$(A$,4+I*6,2)
  52.       N(I+&H21)=Val(D$(I+&H21))
  53.     Next I
  54.     Print
  55.     For I=0 To &H14                       !1.Spalte
  56.       Y=A(I)*N(I)^2+B(I)*N(I)+C(I)        !Umrechnungsformel
  57.       Print T$(I);" ";Int(Y*100+0.5)/100;" ";U$(I)
  58.     Next I
  59.     Zeile=2
  60.     For I=&H15 To &H29                    !2.Spalte
  61.       Y=A(I)*N(I)^2+B(I)*N(I)+C(I)        !Umrechnungsformel
  62.       Print At(40,Zeile);T$(I);" ";Int(Y*100+0.5)/100;" ";U$(I)
  63.       Inc Zeile
  64.     Next I
  65.     Gosub Taste
  66.     Print
  67.     For I=&H2A To &H3A                    !3.Spalte nach Tastendruck
  68.       Y=A(I)*N(I)^2+B(I)*N(I)+C(I)        !Umrechnungsformel
  69.       Print T$(I);" ";Int(Y*100+0.5)/100;" ";U$(I)
  70.     Next I
  71.     '     Lprint Hex$(I);"  ";T$(I),Int(Y*100+0.5)/100,U$(I)
  72.     '   Lprint Chr$(12)
  73.     Gosub Taste
  74.   Endif
  75. Loop
  76. Data Rx E/F Audio(W):,0,0.0246,0,V(p-p)
  77. Data Rx E/F Audio(N):,0,0.0246,0,V(p-p)
  78. Data Mixer Bias V:   ,0,0.0102,0,Volt
  79. Data Osc. Bisd V:    ,0,0.0102,0,Volt
  80. Data Rx A Audio (W): ,0,0.0246,0,V(p-p)
  81. Data Rx A Audio (N): ,0,0.0246,0,V(p-p)
  82. Data Rx A DISC:      ,10.427,-0.09274,0,kHz
  83. Data Rx A S meter:   ,0,1,0,Counts
  84. Data Rx E/F DISC:    ,9.6234,-0.09911,0,kHz
  85. Data Rx E/F S meter: ,0,1,0,Counts
  86. Data +5Volt Bus:     ,0,0.0305,0,Volt
  87. Data +5V Rx Current: ,0,0.0001,0,Amp.
  88. Data +2.5V  VREF:    ,0,0.0108,0,Volt
  89. Data 8.5V BUS:       ,0,0.0391,0,Volt
  90. Data IR Detector:    ,0,1,0,Counts
  91. Data LO Monitor I:   ,0,0.000037,0,Amp.
  92. Data +10V BUS:       ,0,0.05075,0,Volt
  93. Data GASFET Bias I:  ,0,0.000026,0,Amp.
  94. Data Ground REF:     ,0,0.01,0,Volt
  95. Data +Z Array V:     ,0,0.10230,0,Volt
  96. Data RX Temp:        ,101.05,-0.6051,0,xC
  97. Data +X (RX) temp:   ,101.05,-0.6051,0,xC
  98. Data Bat 1 V:        ,1.7932,-0.0034084,0,Volt
  99. Data Bat 2 V:        ,1.7978,-0.0035316,0,Volt
  100. Data Bat 3 V:        ,1.8046,-0.0035723,0,Volt
  101. Data Bat 4 V:        ,1.7782,-0.0034590,0,Volt
  102. Data Bat 5 V:        ,1.8410,-0.0038355,0,Volt
  103. Data Bat 6 V:        ,1.8381,-0.0038450,0,Volt
  104. Data Bat 7 V:        ,1.8568,-0.0037757,0,Volt
  105. Data Bat 8 V:        ,1.7868,-0.0034068,0,Volt
  106. Data Array V:        ,7.2050,0.0720,0,Volt
  107. Data +5V Bus:        ,1.9320,0.0312,0,Volt
  108. Data +8.5V Bus:      ,5.2650,0.0173,0,Volt
  109. Data +10V Bus:       ,7.4690,0.021765,0,Volt
  110. Data BCR Set Point:  ,-8.7620,1.1590,0,Counts
  111. Data BCR Load Cur:   ,-0.0871,0.00698,0,Amp.
  112. Data +8.5V Bus Cur:  ,-0.00920,0.001899,0,Amp.
  113. Data +5V Bus Cur:    ,0.00502,0.00431,0,Amp.
  114. Data -X Array Cur:   ,-0.01075,0.00215,0,Amp.
  115. Data +X Array Cur:   ,-0.01349,0.00270,0,Amp.
  116. Data -Y Array Cur:   ,-0.01196,0.00239,0,Amp.
  117. Data +Y Array Cur:   ,-0.01141,0.00228,0,Amp.
  118. Data -Z Array Cur:   ,-0.01653,0.00245,0,Amp.
  119. Data +Z Array Cur:   ,-0.01137,0.00228,0,Amp.
  120. Data Ext Power Cur:  ,-0.02000,0.00250,0,Amp.
  121. Data BCR Input Cur:  ,0.06122,0.00317,0,Amp.
  122. Data BCR Output Cur: ,-0.01724,0.00345,0,Amp.
  123. Data Bat 1 Temp:     ,101.05,-0.6051,0,xC
  124. Data Bat 2 Temp:     ,101.05,-0.6051,0,xC
  125. Data Baseplt Temp:   ,101.05,-0.6051,0,xC
  126. Data FM TX#1 RF OUT: ,0.0256,-0.000884,0.0000836,Watt
  127. Data FM TX#2 RF OUT: ,-0.0027,0.001257,0.0000730,Watt
  128. Data PSK TX HPA Temp:,101.05,-0.6051,0,xC
  129. Data +Y Array Temp:  ,101.05,-0.6051,0,xC
  130. Data RC PSK HPA Temp:,101.05,-0.6051,0,xC
  131. Data RC PSK BP Temp: ,101.05,-0.6051,0,xC
  132. Data +Z Array Temp:  ,101.05,-0.6051,0,xC
  133. Data S band TX Out:  ,-0.0451,0.00403,0,Watt
  134. Data S band HPA Temp:,101.05,-0.6051,0,xC
  135. Procedure Taste
  136.   Repeat
  137.   Until Inkey$<>""
  138.   Cls
  139. Return
  140.  
  141.